00100 BEGIN "FOO" 00110 STRING FOO; 00200 PROCEDURE BAZ(PROCEDURE MUMBLE); 00300 BEGIN 00400 MUMBLE(FOO&'15); 00500 END; 00600 END "FOO"